home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / printgrf / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  1.3 KB  |  50 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4065
  5.    ClientLeft      =   1290
  6.    ClientTop       =   1890
  7.    ClientWidth     =   4815
  8.    Height          =   4755
  9.    Left            =   1230
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4065
  12.    ScaleWidth      =   4815
  13.    Top             =   1260
  14.    Width           =   4935
  15.    Begin PictureBox Graph1 
  16.       Height          =   2175
  17.       Left            =   600
  18.       ScaleHeight     =   2145
  19.       ScaleWidth      =   3345
  20.       TabIndex        =   0
  21.       Top             =   840
  22.       Width           =   3375
  23.    End
  24.    Begin Menu Print_mnu 
  25.       Caption         =   "Print"
  26.       Begin Menu Print_Graph_mnu 
  27.          Caption         =   "Print Graph"
  28.       End
  29.       Begin Menu sep1_mnu 
  30.          Caption         =   "-"
  31.       End
  32.       Begin Menu Quit_mnu 
  33.          Caption         =   "Quit"
  34.       End
  35.    End
  36. Option Explicit
  37. Sub Form_Resize ()
  38.     graph1.Move 0, 0, ScaleWidth, ScaleHeight
  39. End Sub
  40. Sub Print_Graph_mnu_Click ()
  41.     Dim success
  42.     Const PIXEL = 3
  43.     Printer.ScaleMode = PIXEL
  44.     success = Printgraph(graph1, 0, 0, CInt(Printer.ScaleWidth), CInt(Printer.ScaleHeight))
  45.     Printer.EndDoc
  46. End Sub
  47. Sub Quit_mnu_Click ()
  48.     End
  49. End Sub
  50.